home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 65.zip
/
BS1 part 65
/
Prowrite v3.2.4.adf
/
PostScript Prep
< prev
next >
Wrap
Text File
|
1992-05-07
|
5KB
|
268 lines
/penGray 0 def
/penRed 0 def
/penGreen 0 def
/penBlue 0 def
/colorPen? false def
/EncodingChanges [
152 /dotlessi
153 /grave
154 /acute
155 /circumflex
156 /tilde
157 /dieresis
158 /ring
159 /cedilla
160 /space
164 /currency
166 /bar
168 /dieresis
169 /copyright
170 /ordfeminine
172 /logicalnot
173 /hyphen
174 /registered
175 /macron
176 /ring
177 /.notdef
178 /quotedblright
179 /dagger
180 /quotesingle
185 /quotedblleft
186 /ordmasculine
188 /daggerdbl
189 /.notdef
192 /Agrave
193 /Aacute
194 /Acircumflex
195 /Atilde
196 /Adieresis
197 /Aring
198 /AE
199 /Ccedilla
200 /Egrave
201 /Eacute
202 /Ecircumflex
203 /Edieresis
204 /Igrave
205 /Iacute
206 /Icircumflex
207 /Idieresis
208 /.notdef
209 /Ntilde
210 /Ograve
211 /Oacute
212 /Ocircumflex
213 /Otilde
214 /Odieresis
215 /endash
216 /Oslash
217 /Ugrave
218 /Uacute
219 /Ucircumflex
220 /Udieresis
223 /germandbls
224 /agrave
225 /aacute
226 /acircumflex
227 /atilde
228 /adieresis
229 /aring
230 /ae
231 /ccedilla
232 /egrave
233 /eacute
234 /ecircumflex
235 /edieresis
236 /igrave
237 /iacute
238 /icircumflex
239 /idieresis
241 /ntilde
242 /ograve
243 /oacute
244 /ocircumflex
245 /otilde
246 /odieresis
247 /emdash
248 /oslash
249 /ugrave
250 /uacute
251 /ucircumflex
252 /udieresis
255 /ydieresis
] def
/AmigaEncoding StandardEncoding length array def
AmigaEncoding 0 StandardEncoding putinterval
EncodingChanges aload length 2 idiv {AmigaEncoding 3 1 roll put} repeat
/bdef {bind def} bind def
/xdef {exch def} bdef
systemdict /rectfill known {
/systemdict /rectfill get /RF xdef
}{
/RF {
newpath
4 -2 roll moveto
dup 0 exch rlineto
exch 0 rlineto
neg 0 exch rlineto
closepath fill
} bdef
} ifelse
/SetColor {
dup /colorPen? xdef {
15 div /penBlue xdef
15 div /penGreen xdef
15 div /penRed xdef
}{
127 div /penGray xdef
} ifelse
} bdef
/BuildFont {
dup maxlength dict /NewFontDict xdef
{
exch dup /FID eq {pop pop} {exch NewFontDict 3 1 roll put} ifelse
} forall
dup NewFontDict /FontName 3 -1 roll put
NewFontDict /Encoding AmigaEncoding put
NewFontDict definefont
} bdef
/SetFont {
{
dup length 2 add string
dup 0 (__) putinterval
dup 2 3 index putinterval
cvn dup FontDirectory exch known {
exch pop findfont
}{
exch cvn findfont BuildFont
} ifelse
}{
cvn findfont
} ifelse
exch scalefont setfont
} bdef
/DoUnderline {
gsave
currentfont dup /FontMatrix get exch /FontInfo get
2 copy
/UnderlineThickness get 0 exch 3 -1 roll dtransform setlinewidth pop
/UnderlinePosition get 0 exch 3 -1 roll dtransform dup 3 1 roll
rmoveto add lineto stroke
grestore
} bdef
/Text {
gsave
/text xdef
/underline? xdef
4 2 roll moveto
rotate
colorPen? {
penRed penGreen penBlue setrgbcolor
}{
penGray setgray
} ifelse
underline? {currentpoint 3 -1 roll} if
abs text stringwidth pop sub text length div 0 text ashow
underline? {DoUnderline} if
grestore
} bdef
/BMap {
gsave
/color? xdef
/height xdef
/width xdef
/y2 xdef
/x2 xdef
/y1 xdef
/x1 xdef
x2 x1 sub abs 1 add width div /cellWidth xdef
y2 y1 sub abs 1 add height div neg /cellHeight xdef
x1 cellWidth 2 div sub /x1 xdef
y1 cellHeight 2 div sub /y1 xdef
width color? {2 mul} if string /dataStr xdef
color? {
/y0 y1 def
0 1 height 1 sub {
pop
currentfile dataStr readhexstring pop pop
/x0 x1 def
0 1 width 1 sub {
1 bitshift dup
dataStr exch get
dup 16#F0 and 0 eq {
16#0F and 15 div
dataStr 3 -1 roll 1 add get
dup 16#F0 and -4 bitshift 15 div
exch 16#0F and 15 div
setrgbcolor
x0 y0 cellWidth cellHeight RF
}{
pop pop
} ifelse
x0 cellWidth add /x0 xdef
} for
y0 cellHeight add /y0 xdef
} for
}{
/y0 y1 def
0 1 height 1 sub {
pop
/x0 x1 def
currentfile dataStr readhexstring pop
{
dup 16#80 and 0 eq {
16#7F and 127 div
setgray
x0 y0 cellWidth cellHeight RF
}{
pop
} ifelse
x0 cellWidth add /x0 xdef
} forall
y0 cellHeight add /y0 xdef
} for
} ifelse
grestore
} bdef
/BPlane {
gsave
/height xdef
/width xdef
/y2 xdef
/x2 xdef
/y1 xdef
/x1 xdef
colorPen? {
penRed penGreen penBlue setrgbcolor
}{
penGray setgray
} ifelse
x1 y2 translate
x2 x1 sub abs 1 add y2 y1 sub abs 1 add scale
width 7 add 8 idiv string /dataStr xdef
width height true
matrix dup 0 width put dup 3 height neg put dup 5 height put
{currentfile dataStr readhexstring pop}
imagemask
grestore
} bdef
/PaperSize {
dup 1 eq {
userdict /letter known {letter} if
} if
dup 2 eq {
userdict /legal known {legal} if
} if
3 eq {
userdict /a4 known {a4} if
} if
} bdef
/ManualFeed {
statusdict /manualfeed known {
statusdict /manualfeed 3 -1 roll put
}{
pop
} ifelse
} bdef
statusdict /waittimeout known {statusdict /waittimeout 0 put} if